0 X=#A000:Y=#1F18:POKE#30E,64:REPEAT:FORI=0TO39:Z=X+Y+I:A=PEEK(Z)
1 POKEZ,PEEK(X+I):POKEX+I,A:NEXT:X=X+40:Y=Y-80:UNTILY<=0:POKE#30E,192